;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:
(defun shtfix ()
  (setq it
	 (ssget "x" '((-4 . "<OR")
		        (8 . "C-VI022REVU")
			(8 . "C-VI023REVU")
		      (-4 . "OR>")
	             )
	 )
  )
  (if it
    (command ".erase" it "")
  )
)